Software Vault: The Diamond Collection/The Diamond Collection (Software Vault)(Digital Impact).ISO/cdr37/wcols50.zip/VIEWOLS.WCX

Wildcat! WCX | 1995-04-08 | 37KB | 1,161 lines

'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx  36688 bytes  01/29/123  04:31:52pm
'! Code Segment Size  :19129 bytes
'! Data Segment Size  :7352 bytes
'! String Segment Size:17559 bytes
'! Compiled with WCC version 4.10

      Type Type31
        s0 As String*20
        s20 As String*10
        s30 As String*8
        s38 As String*13
        s51 As String*6
      End Type

      Type Type30
        s0 As String*20
        s20 As String*10
        s30 As String*8
        s38 As String*13
        s51 As String*6
      End Type

      Type Type29
        Filler0(1 To 6) As Byte
        s6 As String*70
        Filler76(1 To 14) As Byte
        s90 As String*70
        Filler160(1 To 14) As Byte
        s174 As String*70
        Filler244(1 To 20) As Byte
        w264 As Word
      End Type

      Type Type28
        s0 As String*20
        s20 As String*10
        s30 As String*50
        s80 As String*50
        s130 As String*50
        s180 As String*8
        s188 As String*13
        s201 As String*6
      End Type

      Type Type27
        s0 As String*25
        s25 As String*25
        s50 As String*25
        s75 As String*25
        s100 As String*25
        s125 As String*25
        s150 As String*25
        s175 As String*25
        s200 As String*25
        s225 As String*25
        s250 As String*25
        s275 As String*25
        s300 As String*25
        s325 As String*25
        s350 As String*25
        s375 As String*25
        s400 As String*25
        s425 As String*25
        s450 As String*25
        s475 As String*25
        s500 As String*25
        s525 As String*25
        s550 As String*25
        s575 As String*25
        s600 As String*25
        s625 As String*25
        s650 As String*25
        s675 As String*25
        s700 As String*25
        s725 As String*25
        s750 As String*25
        s775 As String*25
        s800 As String*25
        s825 As String*25
        s850 As String*25
        s875 As String*25
        s900 As String*25
        s925 As String*25
        s950 As String*25
        s975 As String*25
      End Type

      Type Type26
        Filler0(1 To 8) As Byte
        s8 As String*25
        s33 As String*30
        s63 As String*30
        s93 As String*30
        s123 As String*30
        s153 As String*5
        s158 As String*10
        s168 As String*15
        s183 As String*15
        s198 As String*3
        s201 As String*3
        s204 As String*3
        s207 As String*3
        s210 As String*5
        s215 As String*3
      End Type

      Declare Function Func18675(s65534 As String) As Integer

      Dim s4463 As String
      Dim i4467 As Integer
      Dim i4469 As Integer
      Dim s4471 As String
      Dim s4479 As String
      Dim mh4483 As MessageHeader
      Dim t26_4807 As Type26
      Dim t30_5025 As Type30
      Dim t31_5082(1 To 10) As Type31
      Dim t28_5652 As Type28
      Dim s5871 As String
      Dim s5875 As String
      Dim s5879 As String
      Dim i5887 As Integer
      Dim i5889 As Integer
      Dim i5891 As Integer
      Dim s5893 As String
      Dim s5897 As String
      Dim i5901 As Integer
      Dim w5903 As Word
      Dim d5905 As Date
      Dim d5907 As Date
      Dim s5909 As String
      Dim i5913 As Integer
      Dim l5915 As Long
      Dim s5919 As String
      Dim s5923 As String
      Dim s5927 As String
      Dim s5931 As String
      Dim s5935 As String
      Dim s5939 As String
      Dim s5943 As String
      Dim s5947 As String
      Dim s5951 As String
      Dim s5955 As String
      Dim i5959 As Integer
      Dim i5961 As Integer
      Dim s5963 As String
      Dim l5967 As Long
      Dim s5971 As String
      Dim s5983 As String
      Dim s5987 As String
      Dim s5991 As String
      Dim s5995 As String
      Dim s5999 As String
      Dim i6003 As Integer
      Dim s6005 As String
      Dim s6009 As String
      Dim r6021 As Real
      Dim r6027 As Real
      Dim r6033 As Real
      Dim r6039 As Real
      Dim r6045 As Real
      Dim r6051 As Real
      Dim s6057(1 To 10) As String
      Dim s6097 As String
      Dim s6101 As String
      Dim s6105 As String
      Dim s6109 As String
      Dim s6125 As String
      Dim t27_6129 As Type27
      Dim s7129 As String
      Dim s7133 As String
      Dim i7137 As Integer
      Dim i7139 As Integer
      Dim s7141(1 To 10) As String
      Dim i7181 As Integer
      Dim s7183 As String
      Dim i7187 As Integer
      Dim sr7189 As SearchRec
      Dim i7238 As Integer
      Dim i7240 As Integer
      Dim i7242 As Integer
      Dim s7244 As String
      Dim s7248 As String
      Dim s7252 As String
      Dim s7256 As String
      Dim s7260 As String
      Dim s7264 As String
      Dim s7268 As String
      Dim s7272 As String
      Dim s7276 As String
      Dim s7280 As String
      Dim s7284 As String
      Dim s7288 As String
      Dim s7292 As String
      Dim s7296 As String
      Dim s7300 As String
      Dim s7304 As String
      Dim s7308 As String
      Dim s7312 As String
      Dim s7316 As String
      Dim i7320 As Integer
      Dim i7322 As Integer
      Dim i7324 As Integer
      Dim i7326 As Integer
      Dim s7328 As String
      Dim s7332 As String
      Dim s7336 As String
      Dim s7340 As String
      Dim s7346 As String
      Dim i7350 As Integer

      Dim l65512_ As Long
      Dim i65516_ As Integer
      Dim l65518_ As Long
      Dim i65522_ As Integer
      Dim s65524_ As String
      Dim s65528_ As String
      Dim s65532_ As String

      s5897 = "5.0"
      w5903 = 0
      CurrentDate d5905
      If Exists("OLS.CFG") Then
      Else
        Do
   81     Cls
          Print "Configuration Info Not Found.  Loading Setup Module.  Please Wait."
          Delay 3
          s5909 = InputMask("Complete DOS Path To OLS Directory:  ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
          If s5909 = "" Then
            End
          End If
  146     If Right(s5909, 1) <> "\" Then
            s5909 = s5909 + "\"
          End If
  183     i5913 = InputNumber("Local E-Mail Conference:             ", 0, 32000)
          l5915 = InputNumber("Online Store REGISTRATION NUMBER  (Or @0F@0000000@0E@ For UNREGISTERED):    ", 0, 99999999)
          s5919 = InputMask("Security Level 1 Of 10:               ", "XXXXXXXXXXXXXX", "", 1213417543)
          s5923 = InputMask("Security Level 2 Of 10:  (Or Blank)   ", "XXXXXXXXXXXXXX", "", 1213417543)
          s5927 = InputMask("Security Level 3 Of 10:  (Or Blank)   ", "XXXXXXXXXXXXXX", "", 1213417543)
          s5931 = InputMask("Security Level 4 Of 10:  (Or Blank)   ", "XXXXXXXXXXXXXX", "", 1213417543)
          s5935 = InputMask("Security Level 5 Of 10:  (Or Blank)   ", "XXXXXXXXXXXXXX", "", 1213417543)
          s5939 = InputMask("Security Level 6 Of 10:  (Or Blank)   ", "XXXXXXXXXXXXXX", "", 1213417543)
          s5943 = InputMask("Security Level 7 Of 10:  (Or Blank)   ", "XXXXXXXXXXXXXX", "", 1213417543)
          s5947 = InputMask("Security Level 8 Of 10:  (Or Blank)   ", "XXXXXXXXXXXXXX", "", 1213417543)
          s5951 = InputMask("Security Level 9 Of 10:  (Or Blank)   ", "XXXXXXXXXXXXXX", "", 1213417543)
          s5955 = InputMask("Security Level 10 Of 10: (Or Blank)   ", "XXXXXXXXXXXXXX", "", 1213417543)
          i5959 = InputNumber("Row Location Of 'Your Command':     ", 1, 23)
          i5961 = InputNumber("Column Location Of 'Your Command'   ", 1, 60)
          Print ""
          If (Not InputYesNo("Is everything correct?  ", 1213417543)) = 0 Then GoTo 559
        Loop
  559   Open "OLS.CFG" For Output As 3
        Print #3, UCase(s5909)
        Print #3, i5913
        Print #3, l5915
        Print #3, UCase(s5919)
        Print #3, UCase(s5923)
        Print #3, UCase(s5927)
        Print #3, UCase(s5931)
        Print #3, UCase(s5935)
        Print #3, UCase(s5939)
        Print #3, UCase(s5943)
        Print #3, UCase(s5947)
        Print #3, UCase(s5951)
        Print #3, UCase(s5955)
        Print #3, Str(i5959)
        Print #3, Str(i5961)
        Close 3
        If Exists("OLS.CFG") Then
        Else
  782     End
        End If
      End If
  783 Open "OLS.CFG" For Input As 1
      Input #1, s5909
      Input #1, i5913
      Input #1, l5915
      Input #1, s5919
      Input #1, s5923
      Input #1, s5927
      Input #1, s5931
      Input #1, s5935
      Input #1, s5939
      Input #1, s5943
      Input #1, s5947
      Input #1, s5951
      Input #1, s5955
      Input #1, i5959
      Input #1, i5961
      Close 1
      s5963 = Right(MakeWild.RegString, 2)
      l5967 = Val(s5963) * Val(s5963) * Val(s5963) + 1000000
      If l5967 <> l5915 Then
        s5871 = "UNREGISTERED"
      Else
 1007   s5871 = "REGISTERED"
      End If
      Do
        Do
          Do
            Do
 1016         Cls
              If Exists(s5909 + "OLSMAIN.BBS") Then
                MorePrompt(0)
                DisplayTextFile(s5909 + "OLSMAIN.BBS")
              Else
 1065           Print "OLSMAIN.BBS was not found in " + UCase(s5909)
                Beep
                Beep
                Delay 5
                End
              End If
 1098         Color 8, 0
              StatusOpen 1
              If s5871 = "REGISTERED" Then
                StatusWrite "    Online Store   v" + s5897 + "    COPYRIGHT (C) 1995  Online Real Estate Consulting", 1213417543, 1213417543, 1213417543
              Else
 1168           StatusWrite "   $25.00 to:  Online Real Estate * POBox 560653 * Charlotte, NC 28256-0653", 1213417543, 1213417543, 1213417543
              End If
 1191         Print ""
              MorePrompt(0)
              Color 14, 0
              Locate i5959, i5961
              s5971 = InputMask("  Your Command:  ", "X", "", 1213417543)
              If UCase(s5971) = "X" Then
                If s5871 <> "REGISTERED" Then
                  Color 14, 0
                  Print "  Please ";
                  Delay 0.1
                  Beep
                  Delay 0.25
                  Print "Register ";
                  Delay 0.1
                  Beep
                  Beep
                  Beep
                  Delay 0.25
                  Print "This ";
                  Delay 0.1
                  Beep
                  Delay 0.25
                  Print "Copy ";
                  Delay 0.1
                  Beep
                  Beep
                  Delay 0.25
                  Print "Of ";
                  Delay 0.1
                  Beep
                  Delay 0.25
                  Color 15, 0
                  Print "Online Store! "
                  Delay 0.1
                  Beep
                  Beep
                  Beep
                  Delay 5
                End If
 1483           End
              End If
 1484         If UCase(s5971) = "H" Then
                DisplayTextFile(s5909 + "HELPVIEW.BBS")
                WaitEnter
              End If
 1522         If UCase(s5971) = "M" Then
                PushCommand Str(i5913)
                EnterMessage
              End If
 1556         If UCase(s5971) = "S" Then
                GoTo 1794
              End If
 1582         If UCase(s5971) = "P" Then
                PageSysop
              End If
 1605         If UCase(s5971) = "B" Then
                GoTo 2166
              End If
 1631         If UCase(s5971) = "?" Then
                SendFile(s5909 + "INFO.ZIP", 1213417543)
              End If
 1671         If UCase(s5971) = "2" Then
                Chain s5909 + "ORDERS.WCX", ""
              End If
 1710         If UCase(s5971) = "1" Then
                Chain s5909 + "PRODUCTS.WCX", ""
              End If
 1749         If UCase(s5971) = "3" Then
                Chain s5909 + "MERCHANT.WCX", ""
              End If
 1788       Loop
 1794       If (Exists(s5909 + "MERCHANT.DAT")) = 0 Then GoTo 2157
            Open s5909 + "MERCHANT.DAT" For Random As 1 Len = 218 '! This value should probably be replaced with a "SizeOf" expression
            i5889 = 1
            i5891 = 1
            s4479 = InputMask("Enter search text:  ", "XXXXXXXXXXXXXXXXXXXX", "", 1213417543)
            If (s4479 = "") = 0 Then GoTo 1909
            Close 1
          Loop
 1909     Cls
          Print "  @0E@Store #         Store Name                     Office          Fax"
          Print ""
          Do
 1930       Get 1, i5889, t26_4807 '! 218 bytes
            If InStr(UCase(t26_4807.s33), UCase(s4479)) <> 0 Then
              If i5891 = 18 Then
                Print "Prompt"
                Delay 3
              Else
 2015           Print "  @0F@" + LeftPad(Str(i5889), 8) + "     @0F@" + Pad(t26_4807.s33, 30) + " " + Pad(t26_4807.s168, 15) + " " + Pad(t26_4807.s183, 15)
                i5891 = i5891 + 1
              End If
            End If
 2125       i5889 = i5889 + 1
          Loop While Not EOF(1)
          Close 1
 2157     WaitEnter
          GoTo 783
 2166     i4469 = 0
          If Exists(s5909 + "MERCHANT.DAT") Then
            Open s5909 + "MERCHANT.DAT" For Random As 1 Len = 218 '! This value should probably be replaced with a "SizeOf" expression
            i5889 = 1
            i5891 = 1
            Cls
            Print "  @0E@Store #         Store Name                     Office          Fax"
            Print ""
            Do
 2253         Get 1, i5889, t26_4807 '! 218 bytes
              If UCase(t26_4807.s33) <> "DEL" Then
                If i5891 = 18 Then
                  Print "Prompt"
                  Delay 3
                Else
 2332             Print "  @0F@" + LeftPad(Str(i5889), 8) + "     @0F@" + Pad(t26_4807.s33, 30) + " " + Pad(t26_4807.s168, 15) + " " + Pad(t26_4807.s183, 15)
                  i5891 = i5891 + 1
                End If
              End If
 2442         i5889 = i5889 + 1
            Loop While Not EOF(1)
            Close 1
          End If
 2474     Print ""
          s7129 = InputMask("Please enter store number, or [@0F@Q@0E@]uit:  ", "XXXXXXXX", "", 1213417543)
          If s7129 = "" Then
            s7129 = "Q"
          End If
 2536     If (UCase(s7129) = "Q") = 0 Then GoTo 2562
        Loop
 2562   i5901 = Val(s7129)
        s5875 = s5909 + Str(i5901) + "\"
        Open s5909 + "MERCHANT.DAT" For Random As 5 Len = 218 '! This value should probably be replaced with a "SizeOf" expression
        i5887 = 1
        Get 5, i5901, t26_4807 '! 218 bytes
        If (UCase(t26_4807.s33) = "DEL") = 0 Then GoTo 2684
        Close 5
      Loop
 2684 Close 5
      Open s5875 + "CAT.CFG" For Random As 3 Len = 1000 '! This value should probably be replaced with a "SizeOf" expression
      Get 3, -1, t27_6129 '! 1000 bytes
      Close 3
      Do
        Do
 2735     Cls
          Print "   @08@│  @08@[@0E@ 1@08@] @0F@" + Pad(t27_6129.s0, 25) + "   @08@[@0E@21@08@] @0F@" + Pad(t27_6129.s500, 25) + "     @08@│"
          Print "@0F@ P @08@│  @08@[@0E@ 2@08@] @0F@" + Pad(t27_6129.s25, 25) + "   @08@[@0E@22@08@] @0F@" + Pad(t27_6129.s525, 25) + "     @08@│@0F@ P"
          Print "@0F@ R @08@│  @08@[@0E@ 3@08@] @0F@" + Pad(t27_6129.s50, 25) + "   @08@[@0E@23@08@] @0F@" + Pad(t27_6129.s550, 25) + "     @08@│@0F@ R"
          Print "@0F@ O @08@│  @08@[@0E@ 4@08@] @0F@" + Pad(t27_6129.s75, 25) + "   @08@[@0E@24@08@] @0F@" + Pad(t27_6129.s575, 25) + "     @08@│@0F@ O"
          Print "@0F@ D @08@│  @08@[@0E@ 5@08@] @0F@" + Pad(t27_6129.s100, 25) + "   @08@[@0E@25@08@] @0F@" + Pad(t27_6129.s600, 25) + "     @08@│@0F@ D"
          Print "@0F@ U @08@│  @08@[@0E@ 6@08@] @0F@" + Pad(t27_6129.s125, 25) + "   @08@[@0E@26@08@] @0F@" + Pad(t27_6129.s625, 25) + "     @08@│@0F@ U"
          Print "@0F@ C @08@│  @08@[@0E@ 7@08@] @0F@" + Pad(t27_6129.s150, 25) + "   @08@[@0E@27@08@] @0F@" + Pad(t27_6129.s650, 25) + "     @08@│@0F@ C"
          Print "@0F@ T @08@│  @08@[@0E@ 8@08@] @0F@" + Pad(t27_6129.s175, 25) + "   @08@[@0E@28@08@] @0F@" + Pad(t27_6129.s675, 25) + "     @08@│@0F@ T"
          Print "   @08@│  @08@[@0E@ 9@08@] @0F@" + Pad(t27_6129.s200, 25) + "   @08@[@0E@29@08@] @0F@" + Pad(t27_6129.s700, 25) + "     @08@│"
          Print "@0F@ C @08@│  @08@[@0E@10@08@] @0F@" + Pad(t27_6129.s225, 25) + "   @08@[@0E@30@08@] @0F@" + Pad(t27_6129.s725, 25) + "     @08@│@0F@ C"
          Print "@0F@ A @08@│  @08@[@0E@11@08@] @0F@" + Pad(t27_6129.s250, 25) + "   @08@[@0E@31@08@] @0F@" + Pad(t27_6129.s750, 25) + "     @08@│@0F@ A"
          Print "@0F@ T @08@│  @08@[@0E@12@08@] @0F@" + Pad(t27_6129.s275, 25) + "   @08@[@0E@32@08@] @0F@" + Pad(t27_6129.s775, 25) + "     @08@│@0F@ T"
          Print "@0F@ E @08@│  @08@[@0E@13@08@] @0F@" + Pad(t27_6129.s300, 25) + "   @08@[@0E@33@08@] @0F@" + Pad(t27_6129.s800, 25) + "     @08@│@0F@ E"
          Print "@0F@ G @08@│  @08@[@0E@14@08@] @0F@" + Pad(t27_6129.s325, 25) + "   @08@[@0E@34@08@] @0F@" + Pad(t27_6129.s825, 25) + "     @08@│@0F@ G"
          Print "@0F@ O @08@│  @08@[@0E@15@08@] @0F@" + Pad(t27_6129.s350, 25) + "   @08@[@0E@35@08@] @0F@" + Pad(t27_6129.s850, 25) + "     @08@│@0F@ O"
          Print "@0F@ R @08@│  @08@[@0E@16@08@] @0F@" + Pad(t27_6129.s375, 25) + "   @08@[@0E@36@08@] @0F@" + Pad(t27_6129.s875, 25) + "     @08@│@0F@ R"
          Print "@0F@ I @08@│  @08@[@0E@17@08@] @0F@" + Pad(t27_6129.s400, 25) + "   @08@[@0E@37@08@] @0F@" + Pad(t27_6129.s900, 25) + "     @08@│@0F@ I"
          Print "@0F@ E @08@│  @08@[@0E@18@08@] @0F@" + Pad(t27_6129.s425, 25) + "   @08@[@0E@38@08@] @0F@" + Pad(t27_6129.s925, 25) + "     @08@│@0F@ E"
          Print "@0F@ S @08@│  @08@[@0E@19@08@] @0F@" + Pad(t27_6129.s450, 25) + "   @08@[@0E@39@08@] @0F@" + Pad(t27_6129.s950, 25) + "     @08@│@0F@ S"
          Print "   @08@│  @08@[@0E@20@08@] @0F@" + Pad(t27_6129.s475, 25) + "   @08@[@0E@40@08@] @0F@" + Pad(t27_6129.s975, 25) + "     @08@│"
          Print ""
          s6125 = InputMask("Please select a product category, or [@0F@Q@0E@]uit. ", "XX", "", 1213417543)
          s5879 = s5875 + s6125 + "\"
          If UCase(s6125) = "Q" Then
            If Exists(s5875 + "ORDERS." + Str(Node)) Then
              GoTo 6333
            End If
 4014       GoTo 1016
          End If
 4020     If Val(s6125) >= 1 And Val(s6125) <= 40 Then
            s4463 = s5875 + s6125
            GoTo 4076
          End If
 4070   Loop
 4076   If Exists(s5875 + s6125 + "PROD.DAT") Then
          GoTo 4114
        End If
 4108 Loop
 4114 Open s5875 + s6125 + "PROD.DAT" For Random As 4 Len = 219 '! This value should probably be replaced with a "SizeOf" expression
      i6003 = LOF(4)
      If UCase(t26_4807.s198) = "YES" Then
        s5983 = "MASTERCARD"
      End If
 4191 If UCase(t26_4807.s201) = "YES" Then
        s5987 = "VISA"
      End If
 4226 If UCase(t26_4807.s204) = "YES" Then
        s5991 = "DISCOVER"
      End If
 4261 If UCase(t26_4807.s207) = "YES" Then
        s5995 = "AMEX"
      End If
      Do
        Do
          Do
 4296       Get 4, i5887, t28_5652 '! 219 bytes
            If s5871 <> "REGISTERED" Then
              If i6003 > 10 Then
                i6003 = 10
              End If
            End If
 4350       Print "@CLS@ @NOSTOP@@08@                                                     ┌─────────────────────┐"
            Print " @08@                                                     │ @0E@# @0F@" + Pad(Str(i5887), 16) + "@08@  │"
            Print " @08@┌────────────────────────────────────────────────────┘                     │"
            Print " @08@│                                                                          │"
            Print " @08@│  @0E@Product  @0F@   " + Pad(t28_5652.s0, 23) + "@08@                                     │"
            Print " @08@│                                                                          @08@│"
            Print " @08@│@0F@            " + Pad(t28_5652.s30, 50) + "@08@            │"
            Print " @08@│@0F@            " + Pad(t28_5652.s80, 50) + "@08@            │"
            Print " @08@│@0F@            " + Pad(t28_5652.s130, 50) + "@08@            │"
            Print " @08@│                                                                          │"
            Print " @08@│                                              @0E@   Your Price @8F@" + Pad(FormatNumber(Val(t28_5652.s20), "$###,###.##"), 10) + "@08@   │"
            Print " @08@│                                                                          │"
            Print " @08@│                                                                          │"
            Print " @08@│@0E@ Name   @0F@" + Pad(t26_4807.s8, 25) + "@0E@  Company  @0F@" + Pad(t26_4807.s33, 29) + "@08@ │"
            Print " @08@│ @0E@         Office    @0F@" + Pad(t26_4807.s168, 15) + "@0E@          Fax    @0F@" + Pad(t26_4807.s183, 15) + "@08@       │"
            Print " @08@└──────────────────────────────────────────────────────────────────────────┘"
            Print " @0E@  Check Or Money Order:   @0F@Place The Order And Mail In Payment With Invoice."
            Print " @0F@ Credit Cards Accepted: @0E@  " + s5983 + "   " + s5987 + "   " + s5991 + "   " + s5995
            Print ""
            Print "@0E@[@0F@E@0E@]-mail advertiser, @0E@[@0F@D@0E@]ownload, @0E@[@0F@O@0E@]rder item, [@0F@N@0E@]ext, [@0F@P@0E@]revious, [@0F@Q@0E@]uit.  ";
            s5999 = ""
            Do
              Do
 4829           s5999 = InKey(1213417543)
              Loop Until s5999 <> ""
              s65532_ = UCase(s5999)
              If s65532_ = "P" Then
                If i6003 = 1 Then
                  GoTo 4296
                End If
 4907           i5887 = i5887 - 1
                If i5887 < 1 Then
                  i5887 = 1
                End If
 4943           GoTo 4296
              Else
 4955           If s65532_ = "D" Then
                  s7133 = s5879 + Str(i5887) + ".*"
                  i7137 = FindFirst(s7133, 0, sr7189)
                  i7139 = 1
                  i7187 = 0
 5026             Do While i7137 = 0
                    i7187 = i7187 + 1
                    s7141(i7187) = sr7189.Name
                    i7139 = i7139 + 1
                    i7137 = FindNext(sr7189)
                  Loop
 5128             i7139 = i7139 - 1
 5142             Cls
                  Print "@08@┌───────────────────────────────────────────────────────────────────────────┐"
                  Print "@08@│┌─────────────────────────────────────────────────────────────────────────┐│"
                  Print "@08@││                        @0F@ Available Attachments                        @08@   ││"
                  Print "@08@││         @0E@Download Text And Image Files Describing The Product.        @08@   ││"
                  Print "@08@│└─────────────────────────────────────────────────────────────────────────┘│"
                  Print "@08@└───────────────────────────────────────────────────────────────────────────┘"
                  Print ""
 5232             For i7181 = 1 To i7187 Step 1
                    Print "  @0F@" + Str(i7181) + "     @0E@  " + s7141(i7181)
                  Next
 5366             Print ""
                  Print "@0E@Enter attachment [@0F@#@0E@], or [@0F@Q@0E@] to quit.  ";
                  Do
                    Do
 5384                 s7183 = InKey(1213417543)
                    Loop Until s7183 <> ""
                    s65528_ = UCase(s7183)
                    If s65528_ = "Q" Then
                      GoTo 4296
                      GoTo 5453
                    End If
 5453               If s7183 >= "1" And s7183 <= Str(i7181) Then
                      If Exists(s5879 + s7141(Val(s7183))) Then
                        SendFile(s5879 + s7141(Val(s7183)), 1213417543)
                      End If
                    End If
 5586               GoTo 5142
                  Loop
                Else
 5604             If s65532_ = "E" Then
                    Cls
                    mh4483.Flags = mh4483.Flags Or 1
                    mh4483.To = UCase(t26_4807.s8)
                    mh4483.From = User.Name
                    mh4483.Subject = UCase(t28_5652.s0)
                    If EditMessage(mh4483, "OLS" + Str(Node), 15) Then
                      AddMessage(mh4483, "OLS" + Str(Node), "", i5913)
                      Del "OLS" + Str(Node)
                    End If
 5783               GoTo 4296
                  Else
 5795               If s65532_ = "Q" Then
                      s5983 = ""
                      s5987 = ""
                      s5991 = ""
                      s5995 = ""
                      Close 4
                      i5887 = 1
                      GoTo 2735
                    Else
 5872                 If s65532_ = "N" Then
                        If i6003 = 1 Then
                          GoTo 4296
                        End If
 5910                   i5887 = i5887 + 1
                        If i5887 > LOF(4) Then
                          i5887 = i6003
                        End If
 5952                   GoTo 4296
                      Else
 5964                   If s65532_ = "O" Then
                          Print ""
                          If i4469 = 10 Then
                            s4471 = InputMask("Maximum number of items on order.  [@0F@P@0E@]rocess order, or [@0F@Q@0E@]uit.", "X", "", 1213417543)
                            If UCase(s4471) = "P" Then
                              Close 4
                              GoTo 6333
                            Else
 6069                         GoTo 4296
                            End If
                          End If
 6075                     If InputYesNo("Would you like to order @0F@" + UCase(t28_5652.s0) + "@0E@, total price of @0F@" + Trim(FormatNumber(Val(t28_5652.s20), "$###,###.##")) + "@0E@?  ", 1213417543) Then
                            t30_5025.s0 = t28_5652.s0
                            t30_5025.s20 = t28_5652.s20
                            t30_5025.s30 = t28_5652.s180
                            t30_5025.s38 = t28_5652.s188
                            t30_5025.s51 = t28_5652.s201
                            Open s5875 + "ORDERS." + Str(Node) For Random As 7 Len = 57 '! This value should probably be replaced with a "SizeOf" expression
                            Put 7, LOF(7) + 1, t30_5025 '! 57 bytes
                            i4469 = i4469 + 1
                            Close 7
                          End If
 6309                     GoTo 4296
                          GoTo 6321
                        End If
                      End If
                    End If
                  End If
                End If
              End If
 6321       Loop
          Loop
 6333     i4469 = 1
          Open s5875 + "ORDERS." + Str(Node) For Random As 5 Len = 57 '! This value should probably be replaced with a "SizeOf" expression
          Do
 6374       Get 5, i4469, t31_5082(i4469) '! 57 bytes
            i4469 = i4469 + 1
          Loop While Not EOF(5)
          Close 5
          Del s5875 + "ORDERS." + Str(Node)
          r6021 = Val(t31_5082(1).s20) + Val(t31_5082(2).s20) + Val(t31_5082(3).s20) + Val(t31_5082(4).s20) + Val(t31_5082(5).s20) + Val(t31_5082(6).s20) + Val(t31_5082(7).s20) + Val(t31_5082(8).s20) + Val(t31_5082(9).s20) + Val(t31_5082(10).s20)
          i4467 = Val(t31_5082(1).s51) + Val(t31_5082(2).s51) + Val(t31_5082(3).s51) + Val(t31_5082(4).s51) + Val(t31_5082(5).s51) + Val(t31_5082(6).s51) + Val(t31_5082(7).s51) + Val(t31_5082(8).s51) + Val(t31_5082(9).s51) + Val(t31_5082(10).s51)
          t26_4807.s215 = Str(Val(t26_4807.s215))
          If Len(t26_4807.s215) = 1 Then
            r6033 = Val(t26_4807.s215) * 0.01
          End If
 7374     If Len(t26_4807.s215) = 2 Then
            r6033 = Val(t26_4807.s215) * 0.001
          End If
 7423     If Len(t26_4807.s215) = 3 Then
            r6033 = Val(t26_4807.s215) * 0.0001
          End If
 7472     Cls
          If UCase(t26_4807.s210) <> "N/A" Then
            If InputYesNo("Are you a resident of @0F@" + UCase(t26_4807.s210) + "@0E@?  ", 1213417543) Then
              r6039 = r6021 * r6033
            Else
 7565         r6039 = 0
            End If
 7575     Else
 7581       r6039 = 0
          End If
 7591     If Exists(s4463 + "SHIP.CFG") Then
            Open s4463 + "SHIP.CFG" For Input As 8
            Input #8, i7238
            Input #8, i7240
            Input #8, i7242
            Close 8
            i7238 = i7238 * i4467
            i7240 = i7240 * i4467
            i7242 = i7242 * i4467
          Else
 7723       i7238 = 0
            i7240 = 0
            i7242 = 0
          End If
 7741     Print ""
          Print "Shipping Method:  "
          Print ""
          Print "@0E@[@0F@1@0E@] Ground             @0F@ " + FormatNumber(i7238, "$###.##")
          Print "@0E@[@0F@2@0E@] 2nd Day Air        @0F@ " + FormatNumber(i7240, "$###.##")
          Print "@0E@[@0F@3@0E@] Overnight          @0F@ " + FormatNumber(i7242, "$###.##")
          Print ""
          Print "@0E@Your selection:  ";
          s5999 = ""
          Do
            Do
 7867         s5999 = InKey(1213417543)
            Loop Until s5999 <> ""
            s65524_ = s5999
            If s65524_ = "1" Then
              s5893 = "Ground"
              r6027 = i7238
              GoTo 8057
            Else
 7953         If s65524_ = "2" Then
                s5893 = "2nd Day Air"
                r6027 = i7240
                GoTo 8057
              Else
 8002           If s65524_ = "3" Then
                  s5893 = "Overnight"
                  r6027 = i7242
                  GoTo 8057
                  GoTo 8051
                End If
              End If
            End If
 8051     Loop
          Do
 8057       r6045 = r6021 + r6039
            r6051 = r6045 + r6027
            s6057(1) = FormatNumber(Val(t31_5082(1).s20), "$###,###.##.")
            s6057(2) = FormatNumber(Val(t31_5082(2).s20), "$###,###.##.")
            s6057(3) = FormatNumber(Val(t31_5082(3).s20), "$###,###.##.")
            s6057(4) = FormatNumber(Val(t31_5082(4).s20), "$###,###.##.")
            s6057(5) = FormatNumber(Val(t31_5082(5).s20), "$###,###.##.")
            s6057(6) = FormatNumber(Val(t31_5082(6).s20), "$###,###.##.")
            s6057(7) = FormatNumber(Val(t31_5082(7).s20), "$###,###.##.")
            s6057(8) = FormatNumber(Val(t31_5082(8).s20), "$###,###.##.")
            s6057(9) = FormatNumber(Val(t31_5082(9).s20), "$###,###.##.")
            s6057(10) = FormatNumber(Val(t31_5082(10).s20), "$###,###.##.")
            s6097 = FormatNumber(r6039, "$###,###.##.")
            s6101 = FormatNumber(r6045, "$###,###.##.")
            s6105 = FormatNumber(r6027, "$###,###.##.")
            s6109 = FormatNumber(r6051, "$###,###.##.")
            Cls
            Print "      @0E@  Item                                                      Price "
            Print "  @08@┌────────────────────────────────────────────────────────────────────────┐"
            Print "  @08@│  @0E@" + Pad(UCase(t31_5082(1).s0), 30) + "@0F@                           " + Pad(Left(s6057(1), Len(s6057(1)) - 1), 12) + " @08@│"
            Print "  @08@│  @0E@" + Pad(UCase(t31_5082(2).s0), 30) + "@0F@                           " + Pad(Left(s6057(2), Len(s6057(2)) - 1), 12) + " @08@│"
            Print "  @08@│  @0E@" + Pad(UCase(t31_5082(3).s0), 30) + "@0F@                           " + Pad(Left(s6057(3), Len(s6057(3)) - 1), 12) + " @08@│"
            Print "  @08@│  @0E@" + Pad(UCase(t31_5082(4).s0), 30) + "@0F@                           " + Pad(Left(s6057(4), Len(s6057(4)) - 1), 12) + " @08@│"
            Print "  @08@│  @0E@" + Pad(UCase(t31_5082(5).s0), 30) + "@0F@                           " + Pad(Left(s6057(5), Len(s6057(5)) - 1), 12) + " @08@│"
            Print "  @08@│  @0E@" + Pad(UCase(t31_5082(6).s0), 30) + "@0F@                           " + Pad(Left(s6057(6), Len(s6057(6)) - 1), 12) + " @08@│"
            Print "  @08@│  @0E@" + Pad(UCase(t31_5082(7).s0), 30) + "@0F@                           " + Pad(Left(s6057(7), Len(s6057(7)) - 1), 12) + " @08@│"
            Print "  @08@│  @0E@" + Pad(UCase(t31_5082(8).s0), 30) + "@0F@                           " + Pad(Left(s6057(8), Len(s6057(8)) - 1), 12) + " @08@│"
            Print "  @08@│  @0E@" + Pad(UCase(t31_5082(9).s0), 30) + "@0F@                           " + Pad(Left(s6057(9), Len(s6057(9)) - 1), 12) + " @08@│"
            Print "  @08@│  @0E@" + Pad(UCase(t31_5082(10).s0), 30) + "@0F@                           " + Pad(Left(s6057(10), Len(s6057(10)) - 1), 12) + " @08@│"
            Print "  @08@└──────────────────────────────────────────────────────────┬─────────────┤"
            Print "                                                  @0E@Sales Tax  @08@│@0F@" + Pad(Left(s6097, Len(s6097) - 1), 12) + " @08@│"
            Print "        @0E@Total Weight @0F@ " + Pad(Str(i4467), 6) + "                                 @08@├─────────────┤"
            Print "                                                  @0E@Sub Total  @08@│@0F@" + Pad(Left(s6101, Len(s6101) - 1), 12) + " @08@│"
            Print "                                                             @08@├─────────────┤"
            Print "                            @0F@" + LeftPad(s5893, 20) + "  @0E@Shipping   @08@│@0F@" + Pad(Left(s6105, Len(s6105) - 1), 12) + " @08@│"
            Print "                                                             @08@├─────────────┤"
            Print "                                                  @0F@TOTAL DUE  @08@│@0F@" + Pad(Left(s6109, Len(s6109) - 1), 12) + " @08@│"
            Print "                                                             @08@└─────────────┘"
            s6005 = InputMask("[@0F@1@0E@] Credit Card Purchase, [@0F@2@0E@] Check/Money Order Purchase, [@0F@3@0E@] Cancel:  ", "X", "", 1213417543)
            If s6005 = "1" Then
              s6009 = "Credit Card"
              GoTo 10739
            End If
10678       If s6005 = "2" Then
              s6009 = "Check/Money Order"
              GoTo 10739
            End If
10710       If s6005 = "3" Then
              GoTo 17846
            End If
10733     Loop
10739     If UCase(t26_4807.s198) = "YES" Then
            s7272 = "MasterCard"
          Else
10780       s7272 = ""
          End If
10789     If UCase(t26_4807.s201) = "YES" Then
            s7276 = "VISA"
          Else
10830       s7276 = ""
          End If
10839     If UCase(t26_4807.s204) = "YES" Then
            s7280 = "Discover"
          Else
10880       s7280 = ""
          End If
10889     If UCase(t26_4807.s207) = "YES" Then
            s7284 = "AMEX"
          Else
10930       s7284 = ""
          End If
10939     s7244 = ""
          s7248 = ""
          s7252 = ""
          s7256 = ""
          s7260 = ""
          s7264 = ""
          s7268 = ""
          s7288 = ""
          s7292 = ""
          s7296 = ""
          s7308 = ""
          s7304 = ""
          s7300 = ""
          Do
            Do
              Do
                Do
11056             Cls
                  s7244 = InputMask("Please enter your full name:   ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", s7244, 1213417543)
                  s7248 = InputMask("Please enter company name:     ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", s7248, 1213417543)
                  s7252 = InputMask("Please enter street address1:  ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", s7252, 1213417543)
                  s7256 = InputMask("Please enter street address2:  ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", s7256, 1213417543)
                  s7260 = InputMask("Please enter your city:        ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", s7260, 1213417543)
                  s7264 = InputMask("Please enter your state:       ", "XX", s7264, 1213417543)
                  s7268 = InputMask("Please enter your zip code:    ", "99999-9999", s7268, 1213417543)
                  s7288 = InputMask("Please enter your phone1:      ", "9999999999999", s7288, 1213417543)
                  s7292 = InputMask("Please enter your phone2:      ", "9999999999999", s7292, 1213417543)
                  If s6005 = "2" Then
                    GoTo 12511
                  End If
11316             s7296 = InputMask("Card Number:                   ", "9999999999999999", "", 1213417543)
                  If Left(s7296, 1) = "5" Then
                    s7300 = "MASTERCARD"
                    If Len(s7296) = 16 Then
                      If UCase(s7272) = "MASTERCARD" Then
                        GoTo 11682
                      End If
11417                 GoTo 12357
                    End If
                  End If
11423             If Left(s7296, 1) = "4" Then
                    s7300 = "VISA"
                    If Len(s7296) = 13 Or Len(s7296) = 16 Then
                      If UCase(s7276) = "VISA" Then
                        GoTo 11682
                      End If
11510                 GoTo 12357
                    End If
                  End If
11516             If Left(s7296, 2) = "60" Then
                    s7300 = "DISCOVER"
                    If Len(s7296) = 16 Then
                      If UCase(s7280) = "DISCOVER" Then
                        GoTo 11682
                      End If
11590                 GoTo 12357
                    End If
                  End If
11596             If Left(s7296, 2) = "37" Then
                    s7300 = "AMEX"
                    If Len(s7296) = 15 Then
                      If UCase(s7284) = "AMEX" Then
                        GoTo 11682
                      End If
11670                 GoTo 12357
                    End If
                  End If
11676             GoTo 12281
11682             s7312 = s7296
                  Color 15, 0
                  Print "Verifying Card Number - Please Wait.      ";
                  Delay 4
                  If Func18675(s7312) = - 1 Then
                    Color 14, 0
                    Print "Verified!  Thank You!"
                    Delay 2
                  Else
11763               Color 14, 0
                    Print "Failed!"
                    Delay 2
                    GoTo 12281
                  End If
11792             s7300 = InputMask("Card Type                      ", "XXXXXXXXXX", s7300, 1213417543)
                  s7304 = InputMask("Exact Name On Card:            ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", s7304, 1213417543)
                  Do
11844               s7308 = InputMask("Card Expiration Date:  mm/yy   ", "99/99", s7308, 1213417543)
                    CurrentDate d5907
                    s7328 = Mid(FormatDate(d5907, "mm/yy"), 4, 2)
                    s7332 = Mid(s7308, 4, 2)
                    s7336 = Mid(FormatDate(d5907, "mm/yy"), 1, 2)
                    s7340 = Mid(s7308, 1, 2)
                    Print s7332
                    Print s7328
                    Print s7336
                    Print s7340
                    Delay 2
                    If (s7332 = "" Or s7340 = "") = 0 Then GoTo 12026
                  Loop
12026             If Val(s7332) < Val(s7328) Then
                  Else
12054               If Val(s7332) = Val(s7328) And Val(s7340) < Val(s7336) Then
                    Else
12100                 GoTo 12182
                    End If
                  End If
12106             Print "  @0F@┌───────────────────────────────────────────────────────────────────────┐"
                  Print "  @0F@│       @0E@WARNING!@0F@    The Card Number You Have Entered Is Expired.        @0F@│@07@"
                  Print "  @0F@│       @0B@If You Entered The Number Incorrectly, Please Try Again.        @0F@│@07@"
                  Print "  @0F@└───────────────────────────────────────────────────────────────────────┘"
                  Print ""
                  If (InputYesNo("Would you like to enter your information again? ", 1213417543)) = 0 Then GoTo 12176
                Loop
12176           GoTo 12433
12182           Print ""
                If InputYesNo("Is everything correct?  ", 1213417543) Then
                  GoTo 12228
                  GoTo 12228
                End If
12222         Loop
12228         If Not InputYesNo("Are you authorized to use this charge card for this purpose?  ", 1213417543) Then
                GoTo 12433
              End If
12255         If InputYesNo("Would you like to process this order?  ", 1213417543) Then
                GoTo 12511
              End If
12280         End
12281         Print "  @0F@┌───────────────────────────────────────────────────────────────────────┐"
              Print "  @0F@│       @0E@WARNING!@0F@    The Card Number You Have Entered Is Invalid.        @0F@│@07@"
              Print "  @0F@│       @0B@If You Entered The Number Incorrectly, Please Try Again.        @0F@│@07@"
              Print "  @0F@└───────────────────────────────────────────────────────────────────────┘"
              Print ""
              If (InputYesNo("Would you like to enter your information again? ", 1213417543)) = 0 Then GoTo 12351
            Loop
12351       GoTo 12433
12357       Print "  @0F@┌───────────────────────────────────────────────────────────────────────┐"
            Print "  @0F@│       @0E@WARNING!@0F@   We Do Not Currently Accept This Type Of Card.        @0F@│@07@"
            Print "  @0F@│       @0B@If You Would Like To Use Another Card, Please Try Again.        @0F@│@07@"
            Print "  @0F@└───────────────────────────────────────────────────────────────────────┘"
            Print ""
            If (InputYesNo("Would you like to enter your information again? ", 1213417543)) = 0 Then GoTo 12427
          Loop
12427     GoTo 12433
12433     Print "  @0F@┌───────────────────────────────────────────────────────────────────────┐"
          Print "  @0F@│       @0E@WARNING!@0F@    Your Order Has Been Cancelled At Your Request.      @0F@│"
          Print "  @0F@│      Please Contact Us At @0E@" + Pad(t26_4807.s168, 15) + "@0F@ If You Need Assistance.     @0F@│"
          Print "  @0F@└───────────────────────────────────────────────────────────────────────┘"
          Print ""
          WaitEnter
        Loop
12511   Print "Saving Order Information"
        Open s5875 + "ORDERS.TXT" For Append As 1
        Print #1, "           Name:  " + s7244
        Print #1, "        Company:  " + s7248
        Print #1, "       Address1:  " + s7252
        Print #1, "       Address2:  " + s7256
        Print #1, "           City:  " + s7260
        Print #1, "          State:  " + s7264
        Print #1, "            ZIP:  " + s7268
        Print #1, "         Phone1:  " + s7288
        Print #1, "         Phone2:  " + s7292
        Print #1, ""
        Print #1, "       Merchant:  " + t26_4807.s8
        Print #1, "        Company:  " + t26_4807.s33
        Print #1, "        Address:  " + t26_4807.s63
        Print #1, "        Address:  " + t26_4807.s93
        Print #1, "City, State ZIP:  " + Trim(t26_4807.s123) + ", " + t26_4807.s153 + " " + t26_4807.s158
        Print #1, ""
        Print #1, "   Payment Type:  " + s6009
        Print #1, "      Card Type:  " + s7300
        Print #1, "    Card Number:  " + s7296
        Print #1, "  Card Exp Date:  " + s7308
        Print #1, "   Name On Card:  " + s7304
        Print #1, ""
        Print #1, "  ┌────────────────────────────────────────────────────────────────────────┐"
        Print #1, "  │  " + Pad(UCase(t31_5082(1).s0), 30) + "                           " + Pad(Left(s6057(1), Len(s6057(1)) - 1), 12) + " │"
        Print #1, "  │  " + Pad(UCase(t31_5082(2).s0), 30) + "                           " + Pad(Left(s6057(2), Len(s6057(2)) - 1), 12) + " │"
        Print #1, "  │  " + Pad(UCase(t31_5082(3).s0), 30) + "                           " + Pad(Left(s6057(3), Len(s6057(3)) - 1), 12) + " │"
        Print #1, "  │  " + Pad(UCase(t31_5082(4).s0), 30) + "                           " + Pad(Left(s6057(4), Len(s6057(4)) - 1), 12) + " │"
        Print #1, "  │  " + Pad(UCase(t31_5082(5).s0), 30) + "                           " + Pad(Left(s6057(5), Len(s6057(5)) - 1), 12) + " │"
        Print #1, "  │  " + Pad(UCase(t31_5082(6).s0), 30) + "                           " + Pad(Left(s6057(6), Len(s6057(6)) - 1), 12) + " │"
        Print #1, "  │  " + Pad(UCase(t31_5082(7).s0), 30) + "                           " + Pad(Left(s6057(7), Len(s6057(7)) - 1), 12) + " │"
        Print #1, "  │  " + Pad(UCase(t31_5082(8).s0), 30) + "                           " + Pad(Left(s6057(8), Len(s6057(8)) - 1), 12) + " │"
        Print #1, "  │  " + Pad(UCase(t31_5082(9).s0), 30) + "                           " + Pad(Left(s6057(9), Len(s6057(9)) - 1), 12) + " │"
        Print #1, "  │  " + Pad(UCase(t31_5082(10).s0), 30) + "                           " + Pad(Left(s6057(10), Len(s6057(10)) - 1), 12) + " │"
        Print #1, "  └──────────────────────────────────────────────────────────┬─────────────┤"
        Print #1, "                                                  Sales Tax  │" + Pad(Left(s6097, Len(s6097) - 1), 12) + " │"
        Print #1, "        Total Weight  " + Pad(Str(i4467), 6) + "                                 ├─────────────┤"
        Print #1, "                                                  Sub Total  │" + Pad(Left(s6101, Len(s6101) - 1), 12) + " │"
        Print #1, "                                                             ├─────────────┤"
        Print #1, "                            " + LeftPad(s5893, 20) + "  Shipping   │" + Pad(Left(s6105, Len(s6105) - 1), 12) + " │"
        Print #1, "                                                             ├─────────────┤"
        Print #1, "                                                  TOTAL DUE  │" + Pad(Left(s6109, Len(s6109) - 1), 12) + " │"
        Print #1, "                                                             └─────────────┘"
        Print #1, Chr(12)
        Close 1
        Open s5875 + "OLSINV." + Str(Node) For Output As 2
        Print #2, "  ┌────────────────────────────────────────────────────────────────────────┐"
        Print #2, "  │        " + Pad(t26_4807.s33, 35) + "                             │"
        Print #2, "  │        " + Pad(t26_4807.s63, 35) + "                             │"
        Print #2, "  │        " + Pad(t26_4807.s93, 35) + "                             │"
        Print #2, "  │        " + Pad(t26_4807.s123, 30) + ", " + Pad(t26_4807.s153, 5) + " " + Pad(t26_4807.s158, 10) + "                │"
        Print #2, "  │                                                                        │"
        Print #2, "  │        " + Pad(t26_4807.s168, 15) + "                                                 │"
        Print #2, "  └────────────────────────────────────────────────────────────────────────┘"
        Print #2, "  ┌────────────────────────────────────────────────────────────────────────┐"
        Print #2, "  │  SOLD TO:      " + Pad(s7244, 33) + "                       │"
        Print #2, "  │                " + Pad(s7248, 33) + "                       │"
        Print #2, "  │                " + Pad(s7252, 33) + "                       │"
        Print #2, "  │                " + Pad(s7256, 33) + "                       │"
        Print #2, "  │                " + Pad(s7260, 33) + ", " + Pad(s7264, 2) + "  " + Pad(s7268, 10) + "       │"
        Print #2, "  │                                                                        │"
        Print #2, "  │                " + Pad(s7288, 14) + "                                          │"
        Print #2, "  │                " + Pad(s7292, 14) + "                                          │"
        Print #2, "  │                                                                        │"
        Print #2, "  │  Card Holder:  " + Pad(s7304, 30) + "  Card Type: " + Pad(s7300, 10) + "   │"
        Print #2, "  │  Card Number:  " + Pad(s7296, 16) + "              Card Exp Date:  " + Pad(s7308, 8) + "  │"
        Print #2, "  │                                                                        │"
        Print #2, "  │  BBS User Name:  " + Pad(User.Name, 30) + "                        │"
        Print #2, "  └────────────────────────────────────────────────────────────────────────┘"
        Print #2, "  ┌────────────────────────────────────────────────────────────────────────┐"
        Print #2, "  │   DATE:   " + Pad(FormatDate(d5905, "mm/dd/yy"), 8) + "          Payment Type:  " + Pad(s6009, 20) + "        │"
        Print #2, "  └────────────────────────────────────────────────────────────────────────┘"
        Print #2, "        Item                                                      Price "
        Print #2, "  ┌────────────────────────────────────────────────────────────────────────┐"
        Print #2, "  │  " + Pad(UCase(t31_5082(1).s0), 30) + "                           " + Pad(Left(s6057(1), Len(s6057(1)) - 1), 12) + " │"
        Print #2, "  │  " + Pad(UCase(t31_5082(2).s0), 30) + "                           " + Pad(Left(s6057(2), Len(s6057(2)) - 1), 12) + " │"
        Print #2, "  │  " + Pad(UCase(t31_5082(3).s0), 30) + "                           " + Pad(Left(s6057(3), Len(s6057(3)) - 1), 12) + " │"
        Print #2, "  │  " + Pad(UCase(t31_5082(4).s0), 30) + "                           " + Pad(Left(s6057(4), Len(s6057(4)) - 1), 12) + " │"
        Print #2, "  │  " + Pad(UCase(t31_5082(5).s0), 30) + "                           " + Pad(Left(s6057(5), Len(s6057(5)) - 1), 12) + " │"
        Print #2, "  │  " + Pad(UCase(t31_5082(6).s0), 30) + "                           " + Pad(Left(s6057(6), Len(s6057(6)) - 1), 12) + " │"
        Print #2, "  │  " + Pad(UCase(t31_5082(7).s0), 30) + "                           " + Pad(Left(s6057(7), Len(s6057(7)) - 1), 12) + " │"
        Print #2, "  │  " + Pad(UCase(t31_5082(8).s0), 30) + "                           " + Pad(Left(s6057(8), Len(s6057(8)) - 1), 12) + " │"
        Print #2, "  │  " + Pad(UCase(t31_5082(9).s0), 30) + "                           " + Pad(Left(s6057(9), Len(s6057(9)) - 1), 12) + " │"
        Print #2, "  │  " + Pad(UCase(t31_5082(10).s0), 30) + "                           " + Pad(Left(s6057(10), Len(s6057(10)) - 1), 12) + " │"
        Print #2, "  └──────────────────────────────────────────────────────────┬─────────────┤"
        Print #2, "                                                  Sales Tax  │" + Pad(Left(s6097, Len(s6097) - 1), 12) + " │"
        Print #2, "        Total Weight  " + Pad(Str(i4467), 6) + "                                 ├─────────────┤"
        Print #2, "                                                  Sub Total  │" + Pad(Left(s6101, Len(s6101) - 1), 12) + " │"
        Print #2, "                                                             ├─────────────┤"
        Print #2, "                            " + LeftPad(s5893, 20) + "  Shipping   │" + Pad(Left(s6105, Len(s6105) - 1), 12) + " │"
        Print #2, "                                                             ├─────────────┤"
        Print #2, "                                                  TOTAL DUE  │" + Pad(Left(s6109, Len(s6109) - 1), 12) + " │"
        Print #2, "                                                             └─────────────┘"
        Close 2
        mh4483.Flags = mh4483.Flags Or 1
        mh4483.From = User.Name
        mh4483.To = t26_4807.s8
        mh4483.Subject = "Purchase"
        AddMessage(mh4483, s5875 + "OLSINV." + Str(Node), "", i5913)
        Do
17255     Cls
          If s6005 = "1" Then
            Print "  @0F@┌───────────────────────────────────────────────────────────────────────┐"
            Print "  @0F@│                        Credit Card Purchases                          @0F@│"
            Print "  @0F@│                                                                       @0F@│"
            Print "  @0F@│      Your purchase has been recorded and forwarded for immediate      @0F@│"
            Print "  @0F@│      processing by the company that is offering the merchandise.      @0F@│"
            Print "  @0F@│                                                                       @0F@│"
            Print "  @0F@│      If you have any questions concerning this purchase, contact      @0F@│"
            Print "  @0F@│                                                                       @0F@│"
            Print "  @0F@│@0E@" + LeftPad(t26_4807.s8, 30) + " @0F@ - @0E@ " + Pad(t26_4807.s33, 30) + " @0F@     │"
            Print "  @0F@│                           @0E@ " + Pad(t26_4807.s168, 14) + "                             @0F@│"
            Print "  @0F@│                                                                       @0F@│"
            Print "  @0F@└───────────────────────────────────────────────────────────────────────┘"
          End If
17455     If s6005 = "2" Then
            Print "  @0F@┌───────────────────────────────────────────────────────────────────────┐"
            Print "  @0F@│                    Check And Money Order Purchases                    @0F@│"
            Print "  @0F@│                                                                       @0F@│"
            Print "  @0F@│     Your purchase has been recorded and forwarded for processing.     @0F@│"
            Print "  @0F@│     Please send payment along with a copy of your invoice to the      @0F@│"
            Print "  @0F@│     address shown on the top of the invoice.  Your order will be      @0F@│"
            Print "  @0F@│               processed when payment has been received.               @0F@│"
            Print "  @0F@│                                                                       @0F@│"
            Print "  @0F@│      If you have any questions concerning this purchase, contact      @0F@│"
            Print "  @0F@│                                                                       @0F@│"
            Print "  @0F@│@0E@" + LeftPad(t26_4807.s8, 30) + " @0F@ - @0E@ " + Pad(t26_4807.s33, 30) + " @0F@     │"
            Print "  @0F@│                           @0E@ " + Pad(t26_4807.s168, 14) + "                             @0F@│"
            Print "  @0F@│                                                                       @0F@│"
            Print "  @0F@└───────────────────────────────────────────────────────────────────────┘"
          End If
17670     Print "  @0F@┌───────────────────────────────────────────────────────────────────────┐"
          Print "  @0F@│       @0E@                Save With Online Shopping!                      @0F@│"
          Print "  @0F@└───────────────────────────────────────────────────────────────────────┘"
          Print ""
          Print ""
          s7346 = InputMask("Enter [@0F@D@0E@] to download your invoice:  ", "X", "", 1213417543)
          If UCase(s7346) = "D" Then
            SendFile(s5875 + "OLSINV." + Str(Node), 1213417543)
            Del s5875 + "OLSINV." + Str(Node)
            GoTo 17824
          End If
17818   Loop
17824   Del s5875 + "OLSINV." + Str(Node)
17846   s7244 = ""
        s7248 = ""
        s7252 = ""
        s7256 = ""
        s7260 = ""
        s7264 = ""
        s7268 = ""
        s7288 = ""
        s7292 = ""
        s7296 = ""
        s7308 = ""
        s7304 = ""
        s7300 = ""
        r6021 = 0
        i4467 = 0
        r6027 = 0
18010   For i7350 = 1 To 10 Step 1
          t31_5082(i7350).s0 = ""
          t31_5082(i7350).s20 = ""
          t31_5082(i7350).s30 = ""
          t31_5082(i7350).s38 = ""
          t31_5082(i7350).s51 = ""
        Next
18299   GoTo 1016
      Loop

'! Called 1 time
      Function Func18675(s65534 As String) As Integer
        Dim l65520 As Long
        Dim i65524 As Integer
        Dim l65526 As Long
        Dim i65530 As Integer

        s7316 = ""
18721   For i7320 = 1 To Len(s65534) Step 1
          If Mid(s65534, i7320, 1) >= "0" And Mid(s65534, i7320, 1) <= "9" Then
            s7316 = s7316 + Mid(s65534, i7320, 1)
          End If
18851   Next
18874   i7322 = 0
        i7324 = 2
18919   For i7320 = Len(s7316) - 1 To 1 Step - 1
          i7326 = Val(Mid(s7316, i7320, 1)) * i7324
          If i7326 >= 10 Then
            i7326 = i7326 Mod 10 + 1
          End If
19031     i7322 = i7322 + i7326
          i7324 = 3 - i7324
        Next
19085   Func18675 = (10 - i7322 Mod 10) Mod 10 = Val(Right(s7316, 1))
      End Function